home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
R-Shows
/
(c)expo87.d64
/
load me
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
2KB
|
78 lines
0 REM OPEN15,8,15,"S0:LOAD ME":CLOSE15:SAVE"LOAD ME",8:VERIFY"*",8
10 POKE53280,0
20 POKE53281,0
30 PRINT"[147]"
40 PRINTCHR$(14)
50 PRINT""
60 PRINTCHR$(8)
65 GOSUB400
70 PRINT" [212][208][213][199] [195]OMPUTER [197]XPO [195]-64 [196]ISK (1987)"
80 PRINT" [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
90 PRINT""
100 PRINT"[212]HIS DISK CONTAINS PROGRAMS FROM THE
110 [153]"LIBRARY OF THE (null)ORONTO (null)VAL(null) (null)SERS CHR$ROUP
120 PRINT"[201]NC. [212]HEY ARE PUBLIC DOMAIN AND YOU ARE
130 [153]"FREE TO COPY THIS DISK AND PASS IT
140 PRINT"AROUND TO YOUR FRIENDS. [201]F YOU WANT MORE
150 [153]"INFORMATION ON (null)(null)(null)CHR$ PLEASE WRITE TO US:
160 PRINT"
170 [153]" (null)(null)(null)CHR$ RIGHT$NC.
180 PRINT" 5300 [217]ONGE [211]T.
190 [153]"(null)ILLOWDALE, (null)NTARIO
200 PRINT" [205]2[206] 5[210]2
205 [153]" (416) 733-2933
210 PRINT"
220 [153]"(null)E HOPE YOU ENJOY THE SHOW, AND WE LOOK
230 PRINT"FORWARD TO SERVING YOU AS A MEMBER OF
240 [153]"(null)HE (null)ORONTO (null)ET (null)SERS CHR$ROUP RIGHT$NC.
250 PRINT"
260 [153]" PEEKEST (null)EGARDS
270 PRINT"
280 [153]" STR$AVID PEEKRADLEY AND (null)AUL (null)REPPENHOFER
300 GOTO1000
400 B=53248
410 POKEB+23,255:POKEB+29,255
420 FORI=0TO62
430 READA
440 POKE64*200+I,A
450 NEXTI
860 POKE2040,200:POKE2041,200:POKE2042,200:POKE2043,200:POKE2044,200
865 POKE2045,200:POKE2046,200:POKE2047,200
866 POKEB+39,1:POKEB+40,2:POKEB+41,3:POKEB+42,4:POKEB+43,5
867 POKEB+44,6:POKEB+45,7:POKEB+46,8:POKEB+47,9
870 POKEB+21,0
895 RETURN
900 DATA0,0,0,0,124,0,1,254,0,3,254,0,7,254,0,15,130,0,30,1,255,60,1,254
910 DATA56,1,252,56,1,248,56,0,0,56,1,248,56,1,252,60,1,254,30,1,255,15,130,0
920 DATA7,254,0,3,254,0,1,254,0,0,124,0,0,0,0
1000 FORI=1TO15STEP2:POKEB+I,127:NEXTI
1001 POKEB+39,1:POKEB+40,2:POKEB+41,3:POKEB+42,6
1002 POKEB+43,7:POKEB+44,14:POKEB+45,10:POKEB+46,9
1005 POKEB+21,1
1010 FORI=0TO245:POKEB,I:NEXTI
1015 POKEB+21,3
1020 FORI=0TO245STEP2:POKEB+2,I:NEXTI
1021 POKEB+2,245
1025 POKEB+21,7
1030 FORI=0TO245STEP3:POKEB+4,I:NEXTI
1031 POKEB+4,245
1035 POKEB+21,15
1040 FORI=0TO245STEP4:POKEB+6,I:NEXTI
1041 POKEB+6,245
1045 POKEB+21,31
1050 FORI=0TO245STEP5:POKEB+8,I:NEXTI
1051 POKEB+8,245
1055 POKEB+21,63
1060 FORI=0TO245STEP6:POKEB+10,I:NEXTI
1061 POKEB+10,245
1065 POKEB+21,127
1070 FORI=0TO245STEP7:POKEB+12,I:NEXTI
1071 POKEB+12,245
1075 POKEB+21,255
1080 FORI=0TO245STEP8:POKEB+14,I:NEXTI
1081 POKEB+14,245
1085 FORJ=1TO25
1090 FORI=0TO15:POKEB+39,I:NEXTI
1095 NEXTJ
2000 GOTO 1085